home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MusicLib.cpt / Music Library / card_39297.txt < prev    next >
Text File  |  1988-03-27  |  3KB  |  153 lines
  1. -- card: 39297 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 38941
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 81
  10. -- high flags: 2004
  11. -- rect: left=8 top=160 right=275 bottom=188
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 20
  19. -- part name: About
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   hide card field "About"
  23. end mouseUp
  24.  
  25.  
  26. -- part 3 (field)
  27. -- low flags: 00
  28. -- high flags: 0007
  29. -- rect: left=246 top=108 right=281 bottom=467
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 0
  33. -- font id: 3
  34. -- text size: 10
  35. -- style flags: 0
  36. -- line height: 13
  37. -- part name: List
  38.  
  39.  
  40. -- part 4 (button)
  41. -- low flags: 00
  42. -- high flags: A003
  43. -- rect: left=278 top=77 right=99 bottom=428
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: Find Titles by Artist
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.   ask "Artist to list recordings of?" with "Beatles"
  55.   if it is empty then exit mouseUp
  56.   put it into Artist
  57.   put empty into card field "List"
  58.   set cursor to 4
  59.   set lockscreen to true
  60.   repeat with x = 2 to number of cards
  61.     go to next card
  62.     put "Processing card" && x
  63.     if field "Artist" contains Artist then
  64.       put field "Title" & return after card field "List" of first card
  65.       push card
  66.       go to first card
  67.       set lockscreen to false
  68.       set lockscreen to true
  69.       pop card
  70.     end if
  71.   end repeat
  72.   go to first card
  73.   set lockscreen to false
  74.   hide message
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part 5 (button)
  80. -- low flags: 00
  81. -- high flags: 0000
  82. -- rect: left=17 top=19 right=69 bottom=78
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: Melody
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   put "b3 c#4 d e f# g a#3 g4 f# e d c#" into notes1
  94.   put "d r f# r b r c# r b r a# r bw" into notes2
  95.   play Harpsichord tempo 380 notes1 && notes2
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 6 (button)
  101. -- low flags: 00
  102. -- high flags: 0000
  103. -- rect: left=428 top=20 right=70 bottom=489
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Charge
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   play Boing tempo 300 g3 c4 e gh eq gw
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part contents for background part 1
  120. ----- text -----
  121. 63
  122.  
  123. -- part contents for background part 2
  124. ----- text -----
  125. 4
  126.  
  127. -- part contents for background part 3
  128. ----- text -----
  129. 20
  130.  
  131. -- part contents for background part 5
  132. ----- text -----
  133. 14
  134.  
  135. -- part contents for background part 10
  136. ----- text -----
  137. 101
  138.  
  139. -- part contents for card part 1
  140. ----- text -----
  141. This stack was written
  142. by
  143. Bob Fronabarger
  144. and is free for
  145. non-commercial use
  146.  
  147. -- part contents for card part 3
  148. ----- text -----
  149. Emotional Rescue
  150. Exile On Mainstreet
  151. Let It Bleed
  152. Tattoo You
  153.